home *** CD-ROM | disk | FTP | other *** search
/ PCGUIA 10 / PC Guia 10.iso / makers / start / 00001_Script_1 next >
Text File  |  1996-01-28  |  440b  |  19 lines
  1. on startMovie
  2.   global TextObj,SavedPos
  3.   
  4.   if factory( "RearWindow" ) = 0 then OpenXLib "RearWindow.XObj" 
  5.   initRearWindow 255
  6.   put EMPTY into SavedPos
  7. end
  8.  
  9. on initRearWindow theColor
  10.   global rwObj
  11.   if objectP( rwObj ) then rwObj( mDispose )
  12.   put RearWindow( mNew, "M" ) into rwObj
  13.   rwObj( mIndexColorToWindow, theColor )
  14. end
  15.  
  16. on disposeRearWindow
  17.   global rwObj
  18.   if objectP( rwObj ) then rwObj( mDispose )
  19. end